﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class PreguntaBL
    'Instanciamos la clase encuestaDAO
    Dim pregunta As New PreguntaDAO


    Public Function ListarPreguntas() As DataSet
        Return pregunta.ListarPreguntas

    End Function

    Public Function BuscarPregunta(ByVal objeto As BE.PreguntaBE) As DataSet

        Return pregunta.BuscarPregunta(objeto)


    End Function

    Public Function EliminarPregunta(ByVal objeto As BE.PreguntaBE) As Boolean

        Return pregunta.EliminarPregunta(objeto)

    End Function

    Public Function RegistrarPregunta(ByVal objeto As BE.PreguntaBE) As String
        Return pregunta.RegistrarPregunta(objeto)


    End Function

    Public Function ActualizarPregunta(ByVal objeto As BE.PreguntaBE) As String

        Return pregunta.ActualizarPregunta(objeto)

    End Function

    Public Function ChapaError() As String
        Return pregunta.ChapaError
    End Function

End Class
